Imports System.Xml.Serialization
Namespace OpenArchive
    <XmlType(TypeName:="ArchiveSettings"), XmlRoot("OpenArchive", Datatype:="", IsNullable:=False, Namespace:="")> _
    Public Class ArchiveSettings
        Private m_ArchiveName As String
        Private m_ArchiveLocation As String
        Private m_ArchiveImmediately As Boolean
        Private m_ArchiveACG As String ' Archive Control Accessgroup
        Private m_Description As String

        Public Sub New()

        End Sub
        'Public Property ArchiveName() As String
        '    Get
        '        Return m_Description
        '    End Get
        '    Set(ByVal value As String)
        '        m_Description = value
        '    End Set
        'End Property
        Public Property Description() As String
            Get
                Return m_Description
            End Get
            Set(ByVal value As String)
                m_Description = value
            End Set
        End Property
        'Public Property ArchiveLocation() As String
        '    Get
        '        Return m_ArchiveLocation
        '    End Get
        '    Set(ByVal value As String)
        '        m_ArchiveLocation = value
        '    End Set
        'End Property
        Public Property ArchiveImmediately() As Boolean
            Get
                Return m_ArchiveImmediately
            End Get
            Set(ByVal value As Boolean)
                m_ArchiveImmediately = True
            End Set
        End Property
        Public Property ArchiveACG() As String
            Get
                Return m_ArchiveACG
            End Get
            Set(ByVal value As String)
                m_ArchiveACG = value
            End Set
        End Property
    End Class
End Namespace

